home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 6: Level 6
/
17 Bit - Level 6 (1998)(Epic Marketing)[!].iso
/
quartz
/
q0833.dms
/
q0833.adf
/
FlowChartMacros
/
FlowChartTool_Diamond.arexx
< prev
next >
Wrap
Text File
|
1997-04-10
|
3KB
|
117 lines
/* FlowChartTool_Diamond*/
/* A SuperMacro by Steven. R. Giovenella, 5823 Dutchess Dr., Colorado Springs, CO
80918. © Copyright 1994 Steven. R. Giovenella, All rights reserved.
This macro is my gift to the Amiga community. It may be given away freely to
anyone, but it may NOT be sold in any way, shape, or form, not even for the cost of
reproduction, shipping, or handling, without express written permission from the
author. This macro may NOT be added to any disk which is to be sold for any price
or fee, to include shipping and handling. The ONLY way this macro may be
distributed is on a disk which is given away 100% free of all charges, or via
telecommunications networks which do not charge any additional fee as a result of a
user downloading this particular macro, although general fees for access to the
telecommunications system as a whole are acceptable. This macro may only
bereproduced in its entirety, including all comment lines and code. The individual
user may alter this macro for personal use, but may not then distribute the macro
in any modified form. If you wish, feel free to send me some money, a Christmas
card, some other piece of software, or absolutely nothing as a gift for creating this
macro. The author of this software is not responsible for any data loss or damage to
computer equipment as a result, direct or indirect, of the use of this macro. */
Options results
/* Set maxwidth of box margins */
SectionSetup TOP 1 BOTTOM 1 INSIDE 2.25 OUTSIDE 2.25 COLUMNS 4
Justify CENTER
Hypen ON
Hotzone .05
maxwidth=0
cumheight=0
/* Find Range to Use */
Status LinePos
PARSE VAR Result BegLine BegPos EndLine EndPos
range=EndLine-BegLine+1
/* make textblocks */
DO i=1 to range
linenum=BegLine+i-1
MoveToLine linenum 0
Status LineHeight
lh=Result
Status Fontname
fname=Result
Status FontSize
fsize=Result
TextBlockTypePrefs SIZE fsize FONT fname
ShiftDOWN
CtrlDOWN
Cursor DOWN
Extract
textline=Result
ShiftUP
CtrlUP
yspot=.25+cumheight
xspot=1.75
DrawTextBlock 1 xspot yspot textline
CurrentObject
obj.i=Result
cumheight=cumheight+lh *.85
IF i=1 THEN DO
FirstObject SELECTED
firstobj=Result
END
END
newcumheight=0
DO i=1 to range
GetObjectCoords obj.i
PARSE VAR Result page left top width height
newxpos=4.125-.5*width
newypos=(.75-.5*cumheight)+newcumheight
newcumheight=height+newcumheight
SetObjectCoords obj.i page newxpos newypos width height
END
SelectObject
/* Draw diamond around text */
BoxPrefs LINEWT 2 FILL solid TEXTFLOW none FILLCOLOR white
DrawBox page 3.8 (.8-.34) .68 .68
SetObjectRotation 0 45
ObjectToBack
i=i+1
CurrentObject
obj.i=Result
BoxPrefs LINEWT 2 FILL solid TEXTFLOW none FILLCOLOR black
DrawBox page 3.8625 (.8625-.34) .68 .68
SetObjectRotation 0 45
ObjectToBack
i=i+1
CurrentObject
obj.i=Result
BoxPrefs LINEWT 2 FILL solid TEXTFLOW none FILLCOLOR white
GraphicTool
DO i=1 to (range+3)
SelectObject obj.i MULTIPLE
END
Group
Cut
TextTool
/* Paste into FlowChart section */
/* Goto FlowChart section or create one */
SectionSetup NEWNAME "Main"
GotoSection "FlowChart"
GetSectionSetup NAME
IF Result~="FlowChart" THEN DO
NewSection Text Name "FlowChart" AFTER
GotoSection "FlowChart"
END
Paste
GraphicTool
redraw
ObjectToFront